home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 November / Chip Kasım 2001.iso / prog / cdcode / xsetup / SETUP.EXE / {app} / plugins / XQ WinNT Server List.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-04-12  |  1.4 KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Network\Server"
  5. "NAME"="Server List Options"
  6. "VERSION"="2.02"
  7. "OSVERSION"="010101"
  8. "WARNING"="1"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Decide automatically if maintence is needed"
  11. "TEXT 2"="Do not maintence Server List"
  12. "TEXT 3"="Force maintence of Server List"
  13. "DESCRIPTION 1"="An NT Workstation or Server can act as a browser if it maintains a Server List. To control whether this list can be maintained, enter "Yes", "No" or "Auto" [no quotes]."
  14. "AUTHOR"="Ojatex@aol.com"
  15. "CONTACTURL"="http://members.aol.com/ojatex/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19. sP="HKLM\System\CurrentControlSet\Services\Browser\Parameters\MaintainServerList"
  20.  
  21. Sub Plugin_Initialize 
  22.      i=RegReadValue(sP)
  23.      If i="Auto" or IsEmpty(i) then
  24.         SetUIElement 1,true
  25.      end if
  26.      If i="No" then
  27.         SetUIElement 2,true
  28.      end if
  29.      If i="Yes" then
  30.         SetUIElement 3,true
  31.      end if
  32.  
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  s=""
  40.  
  41.  if GetUIElement(1)=true then
  42.     s="Auto"
  43.  end if
  44.  
  45.  if GetUIElement(2)=true then
  46.     s="No"
  47.  end if
  48.  
  49.  if GetUIElement(3)=true then
  50.     s="Yes"
  51.  end if
  52.  
  53.  Call RegWriteValue(sP,s,1)
  54.  Call Restart
  55. End Sub
  56.  
  57. Sub Plugin_Terminate 
  58. End Sub
  59.